home *** CD-ROM | disk | FTP | other *** search
/ Enigma Amiga Life 112 / EnigmaAmiga112CD.iso / dalla rivista / awnpipe / contributi / qgl / prefs.qgl next >
Text File  |  1999-11-16  |  709b  |  22 lines
  1. cd sys:prefs
  2.  
  3.  
  4. SET rqc `requestchoice "Prefs Machine" "Run Once Or*nStay Until Quit" "Stay|Once|Cancel"`
  5.  
  6. IF $rqc EQ 0
  7. SKIP end
  8. endif
  9. IF $rqc EQ 1
  10. alias qglr "rx c:QGL.rexx 1 *"Set*" *"SYS Prefs*" []"
  11. endif
  12. if $rqc EQ 2
  13. alias qglr "rx c:QGL.rexx 0 *"Set*" *"SYS Prefs*" []"
  14. ENDIF
  15.  
  16. qglr Edit "run >nil: c:ed c:Prefs.QGL" Request "run <>nil: *`c:reqpd d sys:prefs p ~(#?.info)*`" Screen "run <>nil: Screenmode" Pattern "run <>nil: wbpattern" fonts "run <>nil: font" Overscan "run <>nil: Overscan" Sound "run <>nil: Sound" Time "run <>nil: Time" Palette "run <>nil: Palette" FullPalette "run <>nil: FullPalette" ToolsPrefs "run <>nil: ToolsPrefs" MCP_Prefs "run <>nil: MCPPrefs"
  17.  
  18. LAB end
  19.  
  20. unset rqc
  21. unalias qglr
  22.